"0","species <- c(LETTERS[1:10])
probs <- rep(1/length(species),length(species))
rep(1,length(species))
s.probs <- data.frame(species,probs)

sampled.inds <- table(sample(s.probs$species,100,prob = s.probs$probs, replace =TRUE))
Rarefied.richness <- ddply(inds,.(N),each(EsN.calc))
highE.lowS <- Rarefied.richness
highE.lowS$model <- rep(\"high,low S\",nrow(highE.lowS))"
